home *** CD-ROM | disk | FTP | other *** search
/ Aminet 6 / Aminet 6 - June 1995.iso / Aminet / dev / obero / Interfaces3_6.lha / Interfaces / FileSysRes.mod < prev    next >
Encoding:
Text File  |  1994-03-06  |  2.0 KB  |  52 lines
  1. (*
  2. (*
  3. **  Amiga Oberon Interface Module:
  4. **  $VER: FileSysRes.mod 40.15 (28.12.93) Oberon 3.0
  5. **
  6. **   © 1993 by Fridtjof Siebert
  7. **   updated for V40.15 by hartmut Goebel
  8. *)
  9. *)
  10.  
  11. MODULE FileSysRes;   (* $Implementation- *)
  12.  
  13. IMPORT e * := Exec,
  14.        d * := Dos;
  15.  
  16. CONST
  17.   fsrName * = "FileSystem.resource";
  18.  
  19. TYPE
  20.   FileSysResourcePtr * = UNTRACED POINTER TO FileSysResource;
  21.   FileSysResource * = STRUCT (node * : e.Node)   (* on resource list *)
  22.     creator * : e.LSTRPTR;         (* name of creator of this resource *)
  23.     fileSysEntries * : e.List;     (* list of FileSysEntry structs *)
  24.   END;
  25.  
  26.  
  27.   FileSysEntryPtr * = UNTRACED POINTER TO FileSysEntry;
  28.   FileSysEntry * = STRUCT (node * : e.Node)
  29.                                 (* on fsr_FileSysEntries list *)
  30.                                 (* ln_Name is of creator of this entry *)
  31.     dosType * : LONGINT;        (* DosType of this FileSys *)
  32.     version * : LONGINT;        (* Version of this FileSys *)
  33.     patchFlags * : LONGSET;     (* bits set for those of the following that *)
  34.                                 (*   need to be substituted into a standard *)
  35.                                 (*   device node for this file system: e.g. *)
  36.                                 (*   0x180 for substitute SegList & GlobalVec *)
  37.     type * : LONGINT;           (* device node type: zero *)
  38.     task * : e.TaskPtr;         (* standard dos "task" field *)
  39.     lock * : d.FileLockPtr;     (* not used for devices: zero *)
  40.     handler * : d.BSTR;         (* filename to loadseg (if SegList is null) *)
  41.     stackSize * : LONGINT;      (* stacksize to use when starting task *)
  42.     priority * : LONGINT;       (* task priority when starting task *)
  43.     startup * : e.BPTR;         (* startup msg: FileSysStartupMsg for disks *)
  44.     segList * : e.BPTR;         (* code to run to start new task *)
  45.     globalVec * : e.BPTR;       (* BCPL global vector when starting task *)
  46.     (* no more entries need exist than those implied by fse_PatchFlags *)
  47.   END;
  48.  
  49. END FileSysRes.
  50.  
  51.  
  52.